"
I am a simple test case to check that HashTester works correctly
"
Class {
	#name : 'HashTesterTest',
	#superclass : 'TestCase',
	#category : 'SUnit-Tests-Utilities',
	#package : 'SUnit-Tests',
	#tag : 'Utilities'
}

{ #category : 'tests' }
HashTesterTest >> testBasicBehaviour [

	self
		assert: ((HashTester with: 1) resultFor: 100);
		assert: ((HashTester with: 'fred') resultFor: 100);
		deny: ((HashTester with: BadHasher new) resultFor: 100)
]
